home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / PowerMacInterface / fonts.icl < prev    next >
Encoding:
Modula Implementation  |  1996-03-01  |  830 b   |  27 lines  |  [TEXT/3PRM]
  1. implementation module fonts;
  2.  
  3. import mac_types;
  4.  
  5. GetFontName :: !Int !{#Char} !Toolbox -> (!{#Char},!Toolbox);
  6. GetFontName fontNum string256 tb = (GetFontName1 fontNum string256 tb, NewToolbox);
  7.  
  8. GetFontName1 :: !Int !{#Char} !Toolbox -> {#Char};
  9. GetFontName1 fontNum string256 t = code (fontNum=D0,string256=U,t=U)(theName=A0){
  10.     instruction 0x3AA00000    |    li        r21,0
  11.     instruction 0x92B70004    |    stw        r21,4(r23)
  12.     instruction 0x38970007    |    addi    r4,r23,7
  13.     call    .GetFontName
  14. };
  15.  
  16. GetFNum :: !{#Char} !Toolbox -> (!Int,!Toolbox);
  17. GetFNum fontName t = code (fontName=R2SD0,t=O0D1U)(theNum=W,z=Z){
  18.     call    .GetFNum
  19. };
  20.  
  21. RealFont :: !Int !Int !Toolbox -> (!Bool,!Toolbox);
  22. RealFont fontNum size t = code (fontNum=D0,size=D1,t=U)(is_real_font=D0,z=Z){
  23.     call    .RealFont
  24.     instruction    0x70630001    |    andi.    r3,r3,1
  25.     instruction    0x7C6300D0    |    neg        r3,r3
  26. };
  27.